home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / programm.ing / m2gem106.lzh / CRYSTAL1.06 / CMP / TSM2_1 / AESSYS.A next >
Encoding:
Text File  |  1993-03-13  |  1.1 KB  |  74 lines
  1. module AESSYS
  2.  
  3. segment C_AESSYS(FCODE,28H); group G_AESSYS(C_AESSYS); select C_AESSYS
  4. ;
  5.  
  6. public AESSYS$aes:
  7.  
  8. push bp
  9. mov bp,sp
  10. push es
  11. mov ax,[bp][8]
  12. mov bx,[bp][6]
  13. mov cx,200
  14. mov dx,0
  15. mov es,ax
  16. int 0EFH
  17. pop es
  18. mov sp,bp
  19. pop bp
  20. ret far 4
  21.  
  22. public AESSYS$applyield:
  23.  
  24. mov cx,201
  25. mov dx,0
  26. int 0EFH
  27. ret far 0
  28.  
  29. public AESSYS$FrameCode:
  30.  
  31. push bp
  32. mov bp,sp
  33.  
  34. push ds
  35. push es
  36. push si
  37. push di
  38.                             (* ax:bx = seg(PB):ofs(PB) *)
  39. mov es,ax                   (* es:= ax                 *)
  40.  
  41. (*lds si,es:[bx+1AH]           ds:si:= es:bx+PBParm    *)
  42. dw 026C5H,0771AH
  43. (*mov ds,ax*)
  44.  
  45. (*mov di,bx*)
  46. (*add di,26*)
  47. (*mov si,[di]*)
  48.  
  49. push es                     (* push seg(PB)            *)
  50. mov ax,bx                   (* ax:= bx                 *)
  51. push ax                     (* push ofs(PB)            *)
  52. (*call ds:[si]*)
  53.  
  54. call dword [si]
  55. (*dw 0FF1CH*)
  56.  
  57. pop di
  58. pop si
  59. pop es
  60. pop ds
  61.  
  62. mov sp,bp
  63. pop bp
  64. ret far 0
  65.  
  66. drawsp: dw 0
  67. drawss: dw 0
  68.  
  69. section; segment D_AESSYS(M_DATA,28H); select D_AESSYS
  70.  
  71. drawstack: org 512
  72.  
  73. end
  74. ə